home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
HAMRADIO
/
LOGBOOK.ZIP
/
QSLPRINT.PRG
< prev
next >
Wrap
Text File
|
1986-11-28
|
3KB
|
99 lines
*QSLPRINT prints labels for QSL cards VERSION 860622
*PARAMETERS joe,blanks
STORE 40 TO label2
STORE 'TO RADIO '+CHR(14)+call+CHR(20) TO line1
STORE 'Confirming 2X '+TRIM(mode)+' QSO'TO line2
STORE 'ON '+date+' AT '+time+ ' UTC.' TO line3
STORE 'BAND '+TRIM(band)+' M.'+ ' UR RPT RS'TO line4
IF LEN(TRIM(tx))=3
STORE line4 + 'T' TO line4
ENDIF
STORE line4 +' '+tx TO line4
STORE '73, ' TO line5
IF qslrx = 'R'
STORE line5 + 'TNX' TO line5
ELSE
STORE line5 + 'PSE' TO line5
ENDIF
STORE line5 + ' QSL ' TO line5
IF qslsent = 'D'
STORE line5 + 'DIRECT' TO line5
ELSE
IF qslsent = 'B'
STORE line5 + 'VIA BUREAU' TO line5
ELSE
IF qslsent = 'M'
STORE line5 + 'VIA UR MNGR' TO line5
ELSE
* IF IT IS '-' YOU HAVEN'T SENT THE CARD
ENDIF
ENDIF
ENDIF
STORE CHR(15)+'QSL by PC-HAM 2.0, (C) G3ZCZ 1986'+ CHR(18) TO line8
DO CASE
CASE joe = 0
SET CONSOLE OFF
SET PRINT ON
? line11,$(blanks,1,label2-LEN(line11)-8),line1
? line12,$(blanks,1,label2-LEN(line12)),line2
? line13,$(blanks,1,label2-LEN(line13)),line3
? line14,$(blanks,1,label2-LEN(line14)),line4
? line15,$(blanks,1,label2-LEN(line15)),line5
? line8,$(blanks,1,(label2-LEN(line8))*2+11),line8
?
?
?
STORE 1 TO joe
SET CONSOLE ON
SET PRINT OFF
CASE joe = 1
STORE line1 TO line11
STORE line2 TO line12
STORE line3 TO line13
STORE line4 TO line14
STORE line5 TO line15
STORE 0 TO joe
CASE joe = 2
SET CONSOLE OFF
SET PRINT ON
? line11
? line12
? line13
? line14
? line15
? line8
?
?
?
SET CONSOLE ON
SET PRINT OFF
CASE joe = 3
SET CONSOLE OFF
SET PRINT ON
? line1
? line2
? line3
? line4
? line5
? line8
?
?
?
SET CONSOLE ON
SET PRINT OFF
ENDCASE
RELEASE line1,line2,line3,line4,line5,line8
RETURN
14,$(blanks,1,label2-LEN(line14)),line4
? line15,$(blanks,1,label2-LEN(line15)),line5
? line8,$(blanks,1,(label2-LEN(line8))*2+11),line8
?
?
?
STORE 1 TO joe
SET CONSOLE ON
SET PRINT OFF
CASE joe = 1
STORE line1 TO line11
STORE line2 TO line12
STORE line3 TO line13